home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / utilities / print / pspager.lha / psp / psp_adobe.ps < prev    next >
Encoding:
Text File  |  1994-04-14  |  5.2 KB  |  391 lines
  1. %%BeginFile: adobe_psp_basic
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /bd{bind def}bind def
  4. /xdf{exch def}bd
  5. /xs{exch store}bd
  6. /ld{load def}bd
  7. /Z{0 def}bd
  8. /T/true
  9. /F/false
  10. /:L/lineto
  11. /lw/setlinewidth
  12. /:M/moveto
  13. /rl/rlineto
  14. /rm/rmoveto
  15. /:C/curveto
  16. /:T/translate
  17. /:K/closepath
  18. /:mf/makefont
  19. /gS/gsave
  20. /gR/grestore
  21. /np/newpath
  22. 14{ld}repeat
  23. /$m matrix def
  24. /av 80 def
  25. /por true def
  26. /normland false def
  27. /psb-nosave{}bd
  28. /pse-nosave{}bd
  29. /us Z
  30. /psb{/us save store}bd
  31. /pse{us restore}bd
  32. /level2
  33. /languagelevel where
  34. {
  35. pop languagelevel 2 ge
  36. }{
  37. false
  38. }ifelse
  39. def
  40. /featurecleanup
  41. {
  42. stopped
  43. cleartomark
  44. countdictstack exch sub dup 0 gt
  45. {
  46. {end}repeat
  47. }{
  48. pop
  49. }ifelse
  50. }bd
  51. /noload Z
  52. /startnoload
  53. {
  54. {/noload save store}if
  55. }bd
  56. /endnoload
  57. {
  58. {noload restore}if
  59. }bd
  60. level2 startnoload
  61. /setjob
  62. {
  63. statusdict/jobname 3 -1 roll put
  64. }bd
  65. /setcopies
  66. {
  67. userdict/#copies 3 -1 roll put
  68. }bd
  69. level2 endnoload level2 not startnoload
  70. /setjob
  71. {
  72. 1 dict begin/JobName xdf currentdict end setuserparams
  73. }bd
  74. /setcopies
  75. {
  76. 1 dict begin/NumCopies xdf currentdict end setpagedevice
  77. }bd
  78. level2 not endnoload
  79. /pm Z
  80. /mT Z
  81. /sD Z
  82. /realshowpage Z
  83. /initializepage
  84. {
  85. /pm save store mT concat
  86. }bd
  87. /endp
  88. {
  89. pm restore showpage
  90. }def
  91. /$c/DeviceRGB def
  92. /rectclip where
  93. {
  94. pop/rC/rectclip ld
  95. }{
  96. /rC
  97. {
  98. np 4 2 roll
  99. :M
  100. 1 index 0 rl
  101. 0 exch rl
  102. neg 0 rl
  103. :K
  104. clip np
  105. }bd
  106. }ifelse
  107. /rectfill where
  108. {
  109. pop/rF/rectfill ld
  110. }{
  111. /rF
  112. {
  113. gS
  114. np
  115. 4 2 roll
  116. :M
  117. 1 index 0 rl
  118. 0 exch rl
  119. neg 0 rl
  120. fill
  121. gR
  122. }bd
  123. }ifelse
  124. /rectstroke where
  125. {
  126. pop/rS/rectstroke ld
  127. }{
  128. /rS
  129. {
  130. gS
  131. np
  132. 4 2 roll
  133. :M
  134. 1 index 0 rl
  135. 0 exch rl
  136. neg 0 rl
  137. :K
  138. stroke
  139. gR
  140. }bd
  141. }ifelse
  142. %%EndFile
  143. %%BeginFile: adobe_psp_colorspace_level1
  144. %%Copyright: Copyright 1991-1993 Adobe Systems Incorporated. All Rights Reserved.
  145. /G/setgray ld
  146. /:F/setrgbcolor ld
  147. %%EndFile
  148. %%BeginFile: adobe_psp_uniform_graphics
  149. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  150. /@a
  151. {
  152. np :M 0 rl :L 0 exch rl 0 rl :L fill
  153. }bd
  154. /@b
  155. {
  156. np :M 0 rl 0 exch rl :L 0 rl 0 exch rl fill
  157. }bd
  158. /arct where
  159. {
  160. pop
  161. }{
  162. /arct
  163. {
  164. arcto pop pop pop pop
  165. }bd
  166. }ifelse
  167. /x1 Z
  168. /x2 Z
  169. /y1 Z
  170. /y2 Z
  171. /rad Z
  172. /@q
  173. {
  174. /rad xs
  175. /y2 xs
  176. /x2 xs
  177. /y1 xs
  178. /x1 xs
  179. np
  180. x2 x1 add 2 div y1 :M
  181. x2 y1 x2 y2 rad arct
  182. x2 y2 x1 y2 rad arct
  183. x1 y2 x1 y1 rad arct
  184. x1 y1 x2 y1 rad arct
  185. fill
  186. }bd
  187. /@s
  188. {
  189. /rad xs
  190. /y2 xs
  191. /x2 xs
  192. /y1 xs
  193. /x1 xs
  194. np
  195. x2 x1 add 2 div y1 :M
  196. x2 y1 x2 y2 rad arct
  197. x2 y2 x1 y2 rad arct
  198. x1 y2 x1 y1 rad arct
  199. x1 y1 x2 y1 rad arct
  200. :K
  201. stroke
  202. }bd
  203. /@i
  204. {
  205. np 0 360 arc fill
  206. }bd
  207. /@j
  208. {
  209. gS
  210. np
  211. :T
  212. scale
  213. 0 0 .5 0 360 arc
  214. fill
  215. gR
  216. }bd
  217. /@e
  218. {
  219. np
  220. 0 360 arc
  221. :K
  222. stroke
  223. }bd
  224. /@f
  225. {
  226. np
  227. $m currentmatrix
  228. pop
  229. :T
  230. scale
  231. 0 0 .5 0 360 arc
  232. :K
  233. $m setmatrix
  234. stroke
  235. }bd
  236. /@k
  237. {
  238. gS
  239. np
  240. :T
  241. 0 0 :M
  242. 0 0 5 2 roll
  243. arc fill
  244. gR
  245. }bd
  246. /@l
  247. {
  248. gS
  249. np
  250. :T
  251. 0 0 :M
  252. scale
  253. 0 0 .5 5 -2 roll arc
  254. fill
  255. gR
  256. }bd
  257. /@m
  258. {
  259. np
  260. arc
  261. stroke
  262. }bd
  263. /@n
  264. {
  265. np
  266. $m currentmatrix
  267. pop
  268. :T
  269. scale
  270. 0 0 .5 5 -2 roll arc
  271. $m setmatrix
  272. stroke
  273. }bd
  274. %%EndFile
  275. %%BeginFile: adobe_psp_basic_text
  276. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  277. /S/show ld
  278. /A{
  279. 0.0 exch ashow
  280. }bd
  281. /R{
  282. 0.0 exch 32 exch widthshow
  283. }bd
  284. /W{
  285. 0.0 3 1 roll widthshow
  286. }bd
  287. /J{
  288. 0.0 32 4 2 roll 0.0 exch awidthshow
  289. }bd
  290. /V{
  291. 0.0 4 1 roll 0.0 exch awidthshow
  292. }bd
  293. /fcflg true def
  294. /fc{
  295. fcflg{
  296. vmstatus exch sub 50000 lt{
  297. (%%[ Warning: Running out of memory ]%%\r)print flush/fcflg false store
  298. }if pop
  299. }if
  300. }bd
  301. /$f[1 0 0 -1 0 0]def
  302. /:ff{$f :mf}bd
  303. /MacEncoding StandardEncoding 256 array copy def
  304. MacEncoding 39/quotesingle put
  305. MacEncoding 96/grave put
  306. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  307. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  308. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  309. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  310. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  311. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  312. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  313. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  314. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  315. /guillemotright/ellipsis/space/Agrave/Atilde/Otilde/OE/oe
  316. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  317. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  318. /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
  319. /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave
  320. /Oacute/Ocircumflex/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  321. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  322. MacEncoding 128 128 getinterval astore pop
  323. level2 startnoload
  324. /copyfontdict
  325. {
  326. findfont dup length dict
  327. begin
  328. {
  329. 1 index/FID ne{def}{pop pop}ifelse
  330. }forall
  331. }bd
  332. level2 endnoload level2 not startnoload
  333. /copyfontdict
  334. {
  335. findfont dup length dict
  336. copy
  337. begin
  338. }bd
  339. level2 not endnoload
  340. md/fontname known not{
  341. /fontname/customfont def
  342. }if
  343. /Encoding Z
  344. /:mre
  345. {
  346. copyfontdict
  347. /Encoding MacEncoding def
  348. fontname currentdict
  349. end
  350. definefont :ff def
  351. }bd
  352. /:bsr
  353. {
  354. copyfontdict
  355. /Encoding Encoding 256 array copy def
  356. Encoding dup
  357. }bd
  358. /pd{put dup}bd
  359. /:esr
  360. {
  361. pop pop
  362. fontname currentdict
  363. end
  364. definefont :ff def
  365. }bd
  366. /scf
  367. {
  368. scalefont def
  369. }bd
  370. /scf-non
  371. {
  372. $m scale :mf setfont
  373. }bd
  374. /ps Z
  375. /fz{/ps xs}bd
  376. /sf/setfont ld
  377. /cF/currentfont ld
  378. /mbf
  379. {
  380. /makeblendedfont where
  381. {
  382. pop
  383. makeblendedfont
  384. /ABlend exch definefont
  385. }{
  386. pop
  387. }ifelse
  388. def
  389. }def
  390. %%EndFile
  391.